gusucode.com > 耐品图片管理系统 标准版A > 耐品图片管理系统 标准版A/ShowClass.asp

    <!--#include file="Head.asp"-->
<%
'===============================================================
' 著作权号：中国国家版权局著作权登记号2004SR07385
' 版权所有：深圳市耐品科技开发有限公司 www.naipin.com
' 联系电话：0755-26611119　81234844　81234845
' 联系手机：13316911914
' 联系邮箱：naipin@naipin.com
'===============================================================
With Netout
	.Load("Comm")
	if .GetCookie("View") <> "1" then
		.ShowErr(0)
		Response.End()
	End If
	Dim ClassID,Show,CurrentPage,MaxPerPage,strFilename,rs,sql,ClassUrl
	
	ClassID = .CheckNumeric(Request("ClassID"))
	SpecialID = .CheckNumeric(Request("SpecialID"))
	
	Set rs = Conn.Execute("select ClassUrl from nt_ClassName where ID="&ClassID)
	If Not(rs.eof Or rs.bof) Then
		ClassUrl = Trim(rs(0)&"")
		If ClassUrl<>"" Then
			Set Netout = Nothing
			Response.Redirect(ClassUrl)
			Response.End()
		End If
	End If
	.InitText = .theCode(0)
End With

If ClassID>0 Then
	MyClassID = Netout.GetAllClassId(ClassId,"Nt_ClassName")
	strFileName="ShowClass.asp?Show="&Show&"&ClassID="&ClassID
	sql="Select titleID,titleName,TitleUser,iClick,iCount from NT_title where ClassID in("&MyClassID&") and iCount>0 and exists(select [ID] from Nt_ImgBook where titleID=Nt_title.titleID and Passed=1"&Netout.GetHideSql("")&") order by UpdateTime desc"
Else
	MyClassID = SpecialID
	strFileName="ShowClass.asp?Show="&Show&"&SpecialID="&SpecialID
	sql="Select titleID,titleName,TitleUser,iClick,iCount from NT_title where SpecialID="&SpecialID&" and iCount>0 and exists(select [ID] from Nt_ImgBook where titleID=Nt_title.titleID and Passed=1"&Netout.GetHideSql("")&") order by UpdateTime desc"
End If
%>
<!--#include file="CommShow.asp"-->